inherited formOdontoCadCliente: TformOdontoCadCliente
  Caption = 'Cadastro de Cliente'
  ClientHeight = 482
  ClientWidth = 596
  ExplicitWidth = 612
  ExplicitHeight = 520
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TPageControl
    Width = 596
    Height = 418
    ActivePage = tbsficha
    ExplicitWidth = 596
    ExplicitHeight = 418
    inherited tbsGrid: TTabSheet
      ExplicitWidth = 588
      ExplicitHeight = 408
      inherited dbgConsulta: TDBGrid
        Width = 588
        Height = 317
        DataSource = dsCliente
      end
      inherited pnlFiltro: TPanel
        Width = 588
        ExplicitWidth = 588
        object odlCodigoPesq: TOdontoLabel
          Left = 14
          Top = 2
          Width = 33
          Height = 13
          Caption = 'Codigo'
        end
        object odlNomePesq: TOdontoLabel
          Left = 105
          Top = 2
          Width = 27
          Height = 13
          Caption = 'Nome'
        end
        object oedCodigo: TOdontoEdit
          Left = 14
          Top = 17
          Width = 78
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 0
          CorFoco = 15461355
        end
        object oedNome: TOdontoEdit
          Left = 105
          Top = 17
          Width = 341
          Height = 19
          CharCase = ecUpperCase
          TabOrder = 1
          CorFoco = 15461355
        end
        object rgStatus: TRadioGroup
          Left = 458
          Top = 8
          Width = 123
          Height = 76
          Caption = 'Status'
          ItemIndex = 0
          Items.Strings = (
            'Ambos'
            'Ativos'
            'Inativos')
          TabOrder = 2
        end
      end
    end
    inherited tbsficha: TTabSheet
      ExplicitLeft = 4
      ExplicitTop = 6
      ExplicitWidth = 588
      ExplicitHeight = 408
      object pgDadosCliente: TPageControl
        Left = 0
        Top = 0
        Width = 588
        Height = 408
        ActivePage = tbDadosCliente
        Align = alClient
        TabOrder = 0
        object tbDadosCliente: TTabSheet
          Caption = 'Cadastro do Cliente'
          object odlCodigo: TOdontoLabel
            Left = 8
            Top = 7
            Width = 33
            Height = 13
            Caption = 'C'#243'digo'
          end
          object odlNome: TOdontoLabel
            Left = 102
            Top = 5
            Width = 27
            Height = 13
            Caption = 'Nome'
          end
          object odlCPF: TOdontoLabel
            Left = 104
            Top = 52
            Width = 19
            Height = 13
            Caption = 'CPF'
          end
          object OdontoLabel1: TOdontoLabel
            Left = 470
            Top = 4
            Width = 24
            Height = 13
            Caption = 'Sexo'
          end
          object odlProfissao: TOdontoLabel
            Left = 211
            Top = 52
            Width = 44
            Height = 13
            Caption = 'Profissao'
          end
          object odlBairro: TOdontoLabel
            Left = 127
            Top = 142
            Width = 28
            Height = 13
            Caption = 'Bairro'
          end
          object odlNumero: TOdontoLabel
            Left = 489
            Top = 95
            Width = 37
            Height = 13
            Caption = 'Numero'
          end
          object odlComplemento: TOdontoLabel
            Left = 8
            Top = 141
            Width = 65
            Height = 13
            Caption = 'Complemento'
          end
          object odlEndereco: TOdontoLabel
            Left = 8
            Top = 95
            Width = 45
            Height = 13
            Caption = 'Endere'#231'o'
          end
          object odlCidade: TOdontoLabel
            Left = 294
            Top = 141
            Width = 33
            Height = 13
            Caption = 'Cidade'
          end
          object odlCEP: TOdontoLabel
            Left = 14
            Top = 184
            Width = 19
            Height = 13
            Caption = 'CEP'
          end
          object odlRG: TOdontoLabel
            Left = 8
            Top = 52
            Width = 14
            Height = 13
            Caption = 'RG'
          end
          object OdontoLabel2: TOdontoLabel
            Left = 489
            Top = 141
            Width = 33
            Height = 13
            Caption = 'Estado'
          end
          object OdontoLabel3: TOdontoLabel
            Left = 114
            Top = 187
            Width = 42
            Height = 13
            Caption = 'Telefone'
          end
          object OdontoLabel4: TOdontoLabel
            Left = 216
            Top = 187
            Width = 91
            Height = 13
            Caption = 'Telefone Comercial'
          end
          object OdontoLabel5: TOdontoLabel
            Left = 318
            Top = 187
            Width = 33
            Height = 13
            Caption = 'Celular'
          end
          object odlNascimento: TOdontoLabel
            Left = 423
            Top = 189
            Width = 81
            Height = 13
            Caption = 'Data Nascimento'
          end
          object Label1: TLabel
            Left = 9
            Top = 232
            Width = 24
            Height = 13
            Caption = 'Email'
          end
          object Label4: TLabel
            Left = 9
            Top = 279
            Width = 46
            Height = 13
            Caption = 'Anota'#231#227'o'
          end
          object dbcbSexo: TDBComboBox
            Left = 466
            Top = 20
            Width = 107
            Height = 21
            DataField = 'Cli_Sexo'
            DataSource = dsCliente
            Items.Strings = (
              'Masculino'
              'Feminino')
            TabOrder = 2
          end
          object dbrgStatus: TDBRadioGroup
            Left = 413
            Top = 57
            Width = 160
            Height = 31
            Caption = 'Status'
            Columns = 2
            DataField = 'Cli_Status'
            DataSource = dsCliente
            Items.Strings = (
              'Ativo'
              'Inativo')
            ParentBackground = True
            TabOrder = 6
            Values.Strings = (
              'A'
              'I')
          end
          object dtmNascimento: TDateTimePicker
            Left = 423
            Top = 203
            Width = 150
            Height = 21
            Date = 41251.072087731480000000
            Time = 41251.072087731480000000
            TabOrder = 15
          end
          object dbmAnotacao: TDBMemo
            Left = 9
            Top = 295
            Width = 565
            Height = 79
            DataField = 'Cli_Anotacoes'
            DataSource = dsCliente
            TabOrder = 17
          end
          object dbeCodigo: TDBOdontoEdit
            Left = 6
            Top = 21
            Width = 85
            Height = 21
            CharCase = ecUpperCase
            DataField = 'Cli_Cd'
            DataSource = dsCliente
            TabOrder = 0
            CorFoco = 15461355
          end
          object dbeNome: TDBOdontoEdit
            Left = 100
            Top = 21
            Width = 357
            Height = 21
            CharCase = ecUpperCase
            DataField = 'Cli_Nome'
            DataSource = dsCliente
            TabOrder = 1
            CorFoco = 15461355
          end
          object dboProfissao: TDBOdontoEdit
            Left = 210
            Top = 67
            Width = 196
            Height = 21
            CharCase = ecUpperCase
            DataField = 'Cli_Profissao'
            DataSource = dsCliente
            TabOrder = 5
            CorFoco = 15461355
          end
          object dboEndereco: TDBOdontoEdit
            Left = 8
            Top = 111
            Width = 468
            Height = 21
            CharCase = ecUpperCase
            DataField = 'Cli_End'
            DataSource = dsCliente
            TabOrder = 7
            CorFoco = 15461355
          end
          object dboNumero: TDBOdontoEdit
            Left = 489
            Top = 111
            Width = 82
            Height = 21
            CharCase = ecUpperCase
            DataField = 'Cli_Num'
            DataSource = dsCliente
            TabOrder = 8
            CorFoco = 15461355
          end
          object dboComplemento: TDBOdontoEdit
            Left = 8
            Top = 157
            Width = 106
            Height = 21
            CharCase = ecUpperCase
            DataField = 'Cli_Comp'
            DataSource = dsCliente
            TabOrder = 9
            CorFoco = 15461355
          end
          object dboBairro: TDBOdontoEdit
            Left = 127
            Top = 156
            Width = 155
            Height = 21
            CharCase = ecUpperCase
            DataField = 'Cli_Bairro'
            DataSource = dsCliente
            TabOrder = 10
            CorFoco = 15461355
          end
          object dboEmail: TDBOdontoEdit
            Left = 9
            Top = 247
            Width = 468
            Height = 21
            CharCase = ecUpperCase
            DataField = 'Cli_Email'
            DataSource = dsCliente
            TabOrder = 16
            CorFoco = 15461355
          end
          object dbeRG: TDBOdontoEdit
            Left = 8
            Top = 67
            Width = 86
            Height = 21
            CharCase = ecUpperCase
            DataField = 'Cli_RG'
            DataSource = dsCliente
            TabOrder = 3
            CorFoco = 15461355
          end
          object odmCel: TOdontoTelMaskEdit
            Left = 318
            Top = 202
            Width = 94
            Height = 21
            CharCase = ecUpperCase
            EditMask = '\(99\)9999-9999;9;_'
            MaxLength = 13
            TabOrder = 14
            Text = '(  )    -    '
            CorFoco = 15461355
          end
          object odmTelC: TOdontoTelMaskEdit
            Left = 216
            Top = 202
            Width = 94
            Height = 21
            CharCase = ecUpperCase
            EditMask = '\(99\)9999-9999;9;_'
            MaxLength = 13
            TabOrder = 13
            Text = '(  )    -    '
            CorFoco = 15461355
          end
          object odmTel: TOdontoTelMaskEdit
            Left = 114
            Top = 202
            Width = 94
            Height = 21
            CharCase = ecUpperCase
            EditMask = '\(99\)9999-9999;9;_'
            MaxLength = 13
            TabOrder = 12
            Text = '(  )    -    '
            CorFoco = 15461355
          end
          object odmCPF: TOdontoCPFMaskEdit
            Left = 104
            Top = 67
            Width = 99
            Height = 21
            CharCase = ecUpperCase
            EditMask = '999\.999\.999\-99;9;_'
            MaxLength = 14
            TabOrder = 4
            Text = '   .   .   -  '
            CorFoco = 15461355
          end
          object dblCidade: TDBLookupOdontoEdit
            Left = 294
            Top = 156
            Width = 183
            Height = 21
            DataField = 'Cli_Cidade'
            DataSource = dsCliente
            KeyField = 'Cidade_Cd'
            ListField = 'Cidade_Ds; Cidade_UF'
            ListSource = dsCidade
            TabOrder = 11
            OnCloseUp = dblCidadeCloseUp
            OnExit = dblCidadeExit
            CorFoco = 15461355
          end
          object dboEstado: TDBOdontoEdit
            Left = 489
            Top = 156
            Width = 82
            Height = 21
            CharCase = ecUpperCase
            DataField = 'Cli_UF'
            DataSource = dsCliente
            ReadOnly = True
            TabOrder = 18
            CorFoco = 15461355
          end
        end
        object tbPlanos: TTabSheet
          Caption = 'Planos Odontologicos'
          ImageIndex = 3
          ExplicitLeft = 0
          ExplicitTop = 0
          ExplicitWidth = 0
          ExplicitHeight = 0
          object dbgPlanosOdontologicos: TDBGrid
            Left = 0
            Top = 0
            Width = 580
            Height = 380
            Align = alClient
            DataSource = dsClientePlano
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'convenio'
                Width = 112
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'TipoPlano'
                Title.Caption = 'Plano'
                Width = 112
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Clp_TipoCli'
                PickList.Strings = (
                  'Titular'
                  'Dependente')
                Title.Caption = 'Tipo de Cliente'
                Width = 140
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Clp_Titular'
                Title.Caption = 'Nome Titular'
                Visible = True
              end>
          end
        end
        object tbAnamnese: TTabSheet
          Caption = 'Anamnese'
          ImageIndex = 1
          object dbgAnamnese: TDBGrid
            Left = 0
            Top = 0
            Width = 580
            Height = 380
            Align = alClient
            DataSource = dsAnamnesePadrao
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -11
            TitleFont.Name = 'Tahoma'
            TitleFont.Style = []
            Columns = <
              item
                Expanded = False
                FieldName = 'Anp_NumPergunta'
                Title.Caption = 'Num.'
                Width = 30
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Anp_Pergunta'
                ReadOnly = True
                Title.Caption = 'Pergunta'
                Width = 250
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Anp_Resposta'
                PickList.Strings = (
                  'SIM'
                  'NAO')
                Title.Caption = 'Resposta'
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'Anp_Anotacao'
                Title.Caption = 'Anotacao'
                Width = 300
                Visible = True
              end>
          end
        end
        object tbFotos: TTabSheet
          Caption = 'Fotos'
          ImageIndex = 2
          ExplicitLeft = 0
          ExplicitTop = 0
          ExplicitWidth = 0
          ExplicitHeight = 0
        end
      end
    end
  end
  inherited pnlBotoes: TPanel
    Width = 596
    ExplicitWidth = 596
    inherited imgBotoes: TImage
      Width = 594
      ExplicitWidth = 594
    end
  end
  inherited statCadastro: TStatusBar
    Top = 457
    Width = 596
    ExplicitTop = 457
    ExplicitWidth = 596
  end
  object qClientePlano: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'Cli_cd'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT Clp_Cliente, '
      '             Clp_Convenio,'
      '             Clp_Plano,'
      '             Clp_TipoCli, '
      '             Clp_Titular'
      'FROM ClientePlano '
      'WHERE Clp_Cliente = :Cli_cd'
      '')
    Left = 87
    Top = 396
    object qClientePlanoClp_Cliente: TIntegerField
      DisplayLabel = 'Cliente'
      FieldName = 'Clp_Cliente'
    end
    object qClientePlanoClp_Plano: TIntegerField
      DisplayLabel = 'Plano'
      FieldName = 'Clp_Plano'
    end
    object qClientePlanoClp_TipoCli: TStringField
      DisplayLabel = 'Tipoe de Cliente'
      FieldName = 'Clp_TipoCli'
      FixedChar = True
      Size = 1
    end
    object qClientePlanoClp_Titular: TStringField
      DisplayLabel = 'Nome do Titular'
      FieldName = 'Clp_Titular'
      Size = 70
    end
    object qClientePlanoClp_Convenio: TIntegerField
      DisplayLabel = 'Convenio'
      FieldName = 'Clp_Convenio'
    end
    object qClientePlanoconvenio: TStringField
      FieldKind = fkLookup
      FieldName = 'convenio'
      LookupDataSet = qConvenio
      LookupKeyFields = 'Con_Cd'
      LookupResultField = 'Con_Ds'
      KeyFields = 'Clp_Convenio'
      Size = 30
      Lookup = True
    end
    object qClientePlanoTipoPlano: TStringField
      FieldKind = fkLookup
      FieldName = 'TipoPlano'
      LookupDataSet = qTipoPlano
      LookupKeyFields = 'Tpp_Cd'
      LookupResultField = 'Tpp_Ds'
      KeyFields = 'Clp_Plano'
      Size = 30
      Lookup = True
    end
  end
  object qConvenio: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT Con_Cd,'
      '             Con_Ds'
      'FROM Convenio')
    Left = 170
    Top = 398
    object qConvenioCon_Cd: TAutoIncField
      FieldName = 'Con_Cd'
      ReadOnly = True
    end
    object qConvenioCon_Ds: TStringField
      FieldName = 'Con_Ds'
      Size = 40
    end
  end
  object dsConvenio: TDataSource
    DataSet = qConvenio
    Left = 169
    Top = 350
  end
  object dsPlano: TDataSource
    DataSet = qTipoPlano
    Left = 241
    Top = 350
  end
  object qTipoPlano: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    DataSource = dsConvenio
    Parameters = <
      item
        Name = 'Con_Cd'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Value = 1
      end>
    SQL.Strings = (
      'SELECT Tpp_Cd,'
      '             Tpp_Convenio,'
      '             Tpp_Ds'
      'FROM TipoPlano'
      'WHERE Tpp_Convenio = :Con_Cd')
    Left = 242
    Top = 398
  end
  object dsClientePlano: TDataSource
    DataSet = qClientePlano
    Left = 89
    Top = 345
  end
  object qDinamica: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT Anm_Cd,'
      '             Anm_Pergunta,'
      '             Anm_Avisa'
      'FROM Anamnese')
    Left = 227
    Top = 237
  end
  object qCliente: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT Cli_Cd, '
      '             Cli_Nome,'
      '             Cli_Sexo, '
      '             Cli_RG, '
      '             Cli_CPF, '
      '             Cli_Profissao, '
      '             Cli_Status, '
      '             Cli_End, '
      '             Cli_Num, '
      '             Cli_Comp,'
      '             Cli_Bairro, '
      '             Cli_Cidade, '
      '             Cli_CEP,'
      '             Cli_UF,'
      '             Cli_Tel,'
      '             Cli_TelC,'
      '             Cli_Cel,'
      '             Cli_DtNasc, '
      '             Cli_Email,'
      '             Cli_Anotacoes, '
      '             Cli_DtCad'
      'FROM Cliente')
    Left = 377
    Top = 398
    object qClienteCli_Cd: TAutoIncField
      DisplayLabel = 'Cod Cliente'
      FieldName = 'Cli_Cd'
      ReadOnly = True
    end
    object qClienteCli_Nome: TStringField
      DisplayLabel = 'Nome'
      FieldName = 'Cli_Nome'
      Size = 70
    end
    object qClienteCli_Sexo: TStringField
      DisplayLabel = 'Sexo'
      FieldName = 'Cli_Sexo'
      FixedChar = True
      Size = 1
    end
    object qClienteCli_RG: TStringField
      DisplayLabel = 'RG'
      FieldName = 'Cli_RG'
      Size = 12
    end
    object qClienteCli_CPF: TStringField
      DisplayLabel = 'CPF'
      FieldName = 'Cli_CPF'
      Size = 14
    end
    object qClienteCli_Profissao: TStringField
      DisplayLabel = 'Profissao'
      FieldName = 'Cli_Profissao'
      Size = 30
    end
    object qClienteCli_Status: TStringField
      DisplayLabel = 'Status'
      FieldName = 'Cli_Status'
      FixedChar = True
      Size = 1
    end
    object qClienteCli_End: TStringField
      DisplayLabel = 'Endere'#231'o'
      FieldName = 'Cli_End'
      Size = 50
    end
    object qClienteCli_Num: TIntegerField
      DisplayLabel = 'Numero'
      FieldName = 'Cli_Num'
    end
    object qClienteCli_Comp: TStringField
      DisplayLabel = 'Complemento'
      FieldName = 'Cli_Comp'
      Size = 30
    end
    object qClienteCli_Bairro: TStringField
      DisplayLabel = 'Bairro'
      FieldName = 'Cli_Bairro'
      Size = 40
    end
    object qClienteCli_CEP: TStringField
      DisplayLabel = 'CEP'
      FieldName = 'Cli_CEP'
      FixedChar = True
      Size = 9
    end
    object qClienteCli_UF: TStringField
      DisplayLabel = 'UF'
      FieldName = 'Cli_UF'
      FixedChar = True
      Size = 2
    end
    object qClienteCli_Tel: TStringField
      DisplayLabel = 'Telefone'
      FieldName = 'Cli_Tel'
      FixedChar = True
      Size = 13
    end
    object qClienteCli_TelC: TStringField
      DisplayLabel = 'Telefone Comercial'
      FieldName = 'Cli_TelC'
      FixedChar = True
      Size = 13
    end
    object qClienteCli_Cel: TStringField
      DisplayLabel = 'Celular'
      DisplayWidth = 13
      FieldName = 'Cli_Cel'
      Size = 13
    end
    object qClienteCli_DtNasc: TDateTimeField
      DisplayLabel = 'Dt Nascimento'
      FieldName = 'Cli_DtNasc'
    end
    object qClienteCli_Email: TStringField
      DisplayLabel = 'Email'
      FieldName = 'Cli_Email'
      Size = 40
    end
    object qClienteCli_Anotacoes: TStringField
      DisplayLabel = 'Anotacoes'
      FieldName = 'Cli_Anotacoes'
      Size = 500
    end
    object qClienteCli_DtCad: TDateTimeField
      DisplayLabel = 'Dt Cadastro'
      FieldName = 'Cli_DtCad'
    end
    object qClienteCli_Cidade: TIntegerField
      DisplayLabel = 'Cidade'
      FieldName = 'Cli_Cidade'
    end
  end
  object dsCliente: TDataSource
    DataSet = qCliente
    Left = 376
    Top = 350
  end
  object qCidade: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT Cidade_Cd,'
      '             Cidade_Ds, '
      '             Cidade_UF'
      'FROM Cidade')
    Left = 433
    Top = 397
    object qCidadeCidade_Cd: TAutoIncField
      FieldName = 'Cidade_Cd'
      ReadOnly = True
    end
    object qCidadeCidade_UF: TStringField
      FieldName = 'Cidade_UF'
      FixedChar = True
      Size = 2
    end
    object qCidadeCidade_Ds: TStringField
      FieldName = 'Cidade_Ds'
      Size = 50
    end
  end
  object dsCidade: TDataSource
    DataSet = qCidade
    Left = 433
    Top = 348
  end
  object qClienteAnanmese: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'SELECT Can_Cliente,'
      '             Can_NumPergunta,'
      '             Can_Resposta,'
      '             Can_Anotacao,'
      '             Anm_Pergunta,'
      '             Anm_Cd'
      'FROM Anamnese'
      '       LEFT JOIN  ClienteAnamnese ON Anm_Cd = Can_NumPergunta')
    Left = 508
    Top = 398
    object qClienteAnanmeseCan_Cliente: TIntegerField
      FieldName = 'Can_Cliente'
    end
    object qClienteAnanmeseCan_NumPergunta: TIntegerField
      FieldName = 'Can_NumPergunta'
    end
    object qClienteAnanmeseCan_Resposta: TStringField
      FieldName = 'Can_Resposta'
      FixedChar = True
      Size = 1
    end
    object qClienteAnanmeseCan_Anotacao: TStringField
      FieldName = 'Can_Anotacao'
      Size = 100
    end
    object qClienteAnanmeseAnm_Pergunta: TStringField
      FieldName = 'Anm_Pergunta'
      Size = 100
    end
    object qClienteAnanmeseAnm_Cd: TAutoIncField
      FieldName = 'Anm_Cd'
      ReadOnly = True
    end
  end
  object dsClienteAnanmese: TDataSource
    DataSet = qClienteAnanmese
    Left = 510
    Top = 349
  end
  object qAnamnesePadrao: TADOQuery
    Connection = formLogin.adoConexao
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'SELECT Anp_Resposta,'
      '             Anp_NumPergunta,'
      '             Anp_Anotacao,'
      '             Anp_Pergunta'
      'FROM AnamnesePadrao')
    Left = 132
    Top = 239
    object qAnamnesePadraoAnp_Resposta: TStringField
      FieldName = 'Anp_Resposta'
      FixedChar = True
      Size = 1
    end
    object qAnamnesePadraoAnp_NumPergunta: TIntegerField
      FieldName = 'Anp_NumPergunta'
    end
    object qAnamnesePadraoAnp_Anotacao: TStringField
      FieldName = 'Anp_Anotacao'
      Size = 100
    end
    object qAnamnesePadraoAnp_Pergunta: TStringField
      FieldName = 'Anp_Pergunta'
      Size = 100
    end
  end
  object dsAnamnesePadrao: TDataSource
    DataSet = qAnamnesePadrao
    Left = 131
    Top = 185
  end
end
